[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd functn
ndim integer z (ndim) real [fun_value] = functn(ndim,z) function [fun_value] = functn(ndim,z)